home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
kermit.columbia.edu
/
kermit.columbia.edu.tar
/
kermit.columbia.edu
/
newsgroups
/
misc.19941031-19941221
/
000070_news@columbia.edu_Mon Nov 7 22:26:13 1994.msg
< prev
next >
Wrap
Internet Message Format
|
1995-07-31
|
2KB
Received: from apakabar.cc.columbia.edu by watsun.cc.columbia.edu with SMTP id AA06921
(5.65c+CU/IDA-1.4.4/HLK for <kermit.misc@watsun.cc.columbia.edu>); Mon, 7 Nov 1994 17:26:20 -0500
Received: by apakabar.cc.columbia.edu id AA14343
(5.65c+CU/IDA-1.4.4/HLK for kermit.misc@watsun); Mon, 7 Nov 1994 17:26:19 -0500
Path: news.columbia.edu!usenet
From: fdc@fdc.cc.columbia.edu (Frank da Cruz)
Newsgroups: comp.protocols.kermit.misc
Subject: Re: Will the New MS-DOS Kermit have MINPUT?
Date: 7 Nov 1994 22:26:13 GMT
Organization: Columbia University
Lines: 33
Message-Id: <39m9i5$e00@apakabar.cc.columbia.edu>
References: <39lv9v$2s@vixen.cso.uiuc.edu>
Nntp-Posting-Host: fdc.cc.columbia.edu
Apparently-To: kermit.misc@watsun.cc.columbia.edu
In article <39lv9v$2s@vixen.cso.uiuc.edu> adam@symcom.math.uiuc.edu (Adam H.
Lewenberg) writes:
>
> Will the New MS-DOS Kermit have the MINPUT command? I would like my
> scripts to work in both MS-DOS Kermit and C-Kermit, so it would be
> nice if MINPUT was supported n MS-DOS Kermit. Adam Lewenberg
>
It is kind of late in the Beta cycle to consider adding this. However,
you might be able to make do by defining an MINPUT macro, something like
this (courtesy of James Sturdevant):
define minput set alarm \%1,-
:top,-
if alarm end 1,-
input 1 \%2,if success asg mynput 1,if success end 0,-
if not def \%3 goto top,reinp 0 \%3,if succ asg mynput 2,if succ end 0,-
if not def \%4 goto top,reinp 0 \%4,if succ asg mynput 3,if succ end 0,-
if not def \%5 goto top,reinp 0 \%5,if succ asg mynput 4,if succ end 0,-
if not def \%6 goto top,reinp 0 \%6,if succ asg mynput 5,if succ end 0,-
if not def \%7 goto top,reinp 0 \%7,if succ asg mynput 6,if succ end 0,-
if not def \%8 goto top,reinp 0 \%8,if succ asg mynput 7,if succ end 0,-
if not def \%9 goto top,reinp 0 \%9,if succ asg mynput 8,if succ end 0,-
goto top
and then use it like this:
minput 60 CONNECT ERROR {NO CARRIER} BUSY RING
if fail errfail {No response from the modem}
if eq \v(program) C-Kermit asg mynput \v(minput)
goto CASE_\m(mynput)
- Frank